inherited frmCertificacion: TfrmCertificacion
  Left = 2
  Top = 2
  Caption = 'Certificaciones'
  Color = 11459508
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  inherited btnGrabar: TSpeedButton
    Left = 684
  end
  inherited SpeedButton1: TSpeedButton
    Tag = 2
    Left = 3
    Top = 506
  end
  inherited Panel1: TPanel
    Height = 57
    inherited lblPlazo: TLabel
      Left = 601
      Top = 5
    end
    inherited lblObra: TLabel
      Left = 12
    end
    inherited Label2: TLabel
      Left = 496
      Top = 38
    end
    inherited btnCalPresup: TSpeedButton
      Left = 2031
    end
    inherited btnReducir: TSpeedButton
      Left = 733
      Top = 29
    end
    inherited btnAmpliar: TSpeedButton
      Left = 757
      Top = 29
    end
    inherited btnExcel: TSpeedButton
      Left = 703
      Top = 28
    end
    inherited btnFecha: TSpeedButton
      Left = 671
      Top = 28
    end
    inherited btnExtender: TSpeedButton
      Left = 457
    end
    inherited edtFecha: TEdit
      Left = 582
      Top = 32
    end
  end
  inherited Panel2: TPanel
    Top = 60
    Height = 437
    inherited Splitter1: TSplitter
      Top = 281
    end
    object Splitter2: TSplitter [1]
      Left = 0
      Top = 377
      Width = 771
      Height = 4
      Cursor = crVSplit
      Align = alTop
    end
    inherited grdPlan: TStringGrid
      Height = 281
      PopupMenu = pop
    end
    inherited grdItem: TStringGrid
      Top = 285
      Height = 92
      Align = alTop
    end
    object DBMemo1: TDBMemo
      Left = 0
      Top = 381
      Width = 771
      Height = 56
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      DataField = 'COMENTARIO'
      DataSource = sComentario
      TabOrder = 2
      OnKeyPress = DBMemo1KeyPress
    end
  end
  inherited rbActualizado: TCheckBox
    Top = 509
    Visible = True
    OnClick = rbActualizadoClick
  end
  inherited cPlanAvance: TSQLClientDataSet
    CommandText = 
      'SELECT fecha, avance'#13#10'FROM certificacion'#13#10'WHERE id_obra=:idObra ' +
      'AND id_item=:idItem'#13#10'ORDER BY fecha'
    Params = <
      item
        DataType = ftUnknown
        Name = 'idObra'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'idItem'
        ParamType = ptInput
      end>
  end
  object cdsComentario: TSQLClientDataSet
    CommandText = 
      'select * '#13#10'from COMENTAR_CERTIF '#13#10'where ID_OBRA = :id'#13#10'and FECHA' +
      ' = :fecha'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftFloat
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftTimeStamp
        Name = 'fecha'
        ParamType = ptInput
      end>
    BeforeClose = cdsComentarioBeforeClose
    OnNewRecord = cdsComentarioNewRecord
    DBConnection = Datos.Con
    Left = 336
    Top = 16
    object cdsComentarioID_OBRA: TFloatField
      FieldName = 'ID_OBRA'
      Required = True
    end
    object cdsComentarioFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
    end
    object cdsComentarioCOMENTARIO: TMemoField
      FieldName = 'COMENTARIO'
      BlobType = ftMemo
      Size = 1
    end
  end
  object sComentario: TDataSource
    DataSet = cdsComentario
    Left = 304
    Top = 16
  end
  object pop: TPopupMenu
    Left = 352
    Top = 104
    object Evaluaraestafecha1: TMenuItem
      Caption = 'Evaluar a esta fecha...'
      OnClick = Evaluaraestafecha1Click
    end
  end
end
